home *** CD-ROM | disk | FTP | other *** search
- object Form28: TForm28
- Left = 341
- Top = 219
- Width = 620
- Height = 204
- Caption = 'Save Page to File'
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = False
- OnActivate = FormActivate
- PixelsPerInch = 120
- TextHeight = 16
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 401
- Height = 89
- Caption = 'Resolution of saved image'
- TabOrder = 0
- object Label1: TLabel
- Left = 16
- Top = 32
- Width = 34
- Height = 16
- Caption = 'Horiz:'
- end
- object Label2: TLabel
- Left = 22
- Top = 64
- Width = 28
- Height = 16
- Caption = 'Vert:'
- end
- object Label6: TLabel
- Left = 192
- Top = 24
- Width = 196
- Height = 16
- Caption = 'Given an 8 x 10 inch page, the file'
- end
- object Label7: TLabel
- Left = 192
- Top = 40
- Width = 179
- Height = 16
- Caption = 'resolution at left will result in a '
- end
- object Label8: TLabel
- Left = 256
- Top = 64
- Width = 64
- Height = 16
- Caption = 'DPI image.'
- end
- object Edit1: TEdit
- Left = 56
- Top = 24
- Width = 121
- Height = 24
- Hint = 'The horizontal resolution of the saved file'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnChange = Edit1Change
- end
- object Edit2: TEdit
- Left = 56
- Top = 56
- Width = 121
- Height = 24
- Hint = 'The vertical resolution of the saved file'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnChange = Edit2Change
- end
- object Edit4: TEdit
- Left = 192
- Top = 56
- Width = 57
- Height = 24
- Hint =
- 'This is the number of dots per inch (DPI) if the image is printe' +
- 'd at 8 x 10 size'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = '300'
- OnChange = Edit4Change
- end
- end
- object BitBtn1: TBitBtn
- Left = 8
- Top = 120
- Width = 75
- Height = 25
- Hint = 'Accept resolution parameters and proceed'
- Caption = 'Ok'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 528
- Top = 120
- Width = 75
- Height = 25
- Hint = 'Exit back to the page editor'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = BitBtn2Click
- Kind = bkCancel
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 153
- Width = 612
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object GroupBox2: TGroupBox
- Left = 416
- Top = 8
- Width = 185
- Height = 89
- Caption = 'JPG Save Quality'
- TabOrder = 4
- object Label3: TLabel
- Left = 80
- Top = 64
- Width = 45
- Height = 16
- Caption = 'Quality:'
- end
- object Label4: TLabel
- Left = 8
- Top = 16
- Width = 140
- Height = 16
- Caption = 'Enter a value from 1-100'
- end
- object Label5: TLabel
- Left = 8
- Top = 32
- Width = 131
- Height = 16
- Caption = '(100 is highest quality)'
- end
- object Edit3: TEdit
- Left = 128
- Top = 56
- Width = 41
- Height = 24
- Hint =
- 'Lower quality results in smaller files but sacrifices some image' +
- ' quality'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = '95'
- end
- end
- object SaveDialog1: TSaveDialog
- Filter =
- 'Windows Bitmap (BMP)|*.bmp|Tagged Image Format (TIF)|*.tif|Joint' +
- ' Picture Experts Grp (JPG)|*.jpg'
- FilterIndex = 3
- Left = 416
- Top = 96
- end
- end
-